gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Special.asp

    <!--#include file="Head.asp"-->
<!--#include file="Function.asp"-->
<%
Dim Rs,Page
With Netout
	.Load("Comm")

	Page = .CheckNumeric(Request.QueryString("page"))
	If Page = 0 Then Page = 1
	
	.MaxPerPage = 25
	.TopPage = False
	.BottomPage = True

	.SqlRecord = "Select ID,SpecialName from Nt_Special Order By RootId,OrderId"
	.strFileName = "Special.asp?"
	.InitText = "个专题"
	Diary_html = .ShowRecord(Page)

	MyHtml = Replace(Template.Html(6),"{?HelpInfo}",Diary_html)
	MyHtml = Replace(Replace(Replace(Split(Template.Html(0),"||")(0),"{?left_beg}",""),"{?left_end}",""),"{?RightInfo}",MyHtml)
	MyHtml = Replace(MyHtml,"{?LeftInfo}",Replace(Template.Html(1),"{?QuickLaunch}",QuickLaunch()))
	MyHtml = Replace(.TempHtml,"{?CurrentScript}",MyHtml)
	Response.Write(MyHtml)
End With
set Template = Nothing
set Netout = Nothing


Function ShowContent(PageSize)
	Dim i,MyHtml,Id,SpecialName
	i = 0
	Set ID = rs("ID")
	Set SpecialName = rs("SpecialName")
	Do While Not rs.eof And i<PageSize
		MyHtml = MyHtml&"<img src='Face/"&Netout.CssFilePath&"/shuy.gif' width=18 height=15 vspace=5 hspace=8 align='absmiddle'> <a href='ShowClass.asp?SpecialID="&ID&"' title='"&SpecialName&"'>"&Netout.CutStr(SpecialName,54)&"</a><br>"
		rs.MoveNext:i = i+1
	Loop
	ShowContent = MyHtml
End Function
%>